home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
oper_sys
/
fp
/
ifp_unix.lzh
/
ifp
/
fproot
/
demo
/
Inter
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1986-10-03
|
193 b
|
10 lines
(*
* Set intersection: [A,B] : Inter -> elements of B which are in A
*
* Example:
* <<2 3 4> <5 3 2 1>> : Inter -> <3 2>
*)
DEF Inter AS
distl | FILTER member END | EACH 2 END;